results %>% 
  count(athlete_name, name = "Number of Parkruns")
## # A tibble: 6 × 2
##   athlete_name `Number of Parkruns`
##   <chr>                       <int>
## 1 Bella                          37
## 2 Charlotte                       5
## 3 Kat                            14
## 4 Lucia                          11
## 5 Matt                           71
## 6 Zach                           30